home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp4.arc / SCANXFER.PAS next >
Pascal/Delphi Source File  |  1985-07-15  |  1KB  |  46 lines
  1. (*----------------------------------------------------------------------*)
  2. (*          Scan_Xfer_List --- Search transfer list for file name       *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Scan_Xfer_List( File_Name : AnyStr ) : BOOLEAN;
  6.  
  7. VAR
  8.    SDone      : BOOLEAN;
  9.    XFer_Line  : STRING[14];
  10.  
  11. BEGIN (* Scan_Xfer_List *)
  12.                                    (* Assume file not found *)
  13.    Scan_Xfer_List := FALSE;
  14.                                    (* Open xferlist file *)
  15.  
  16.    ASSIGN( Xfer_List_File , Home_Dir + 'PIBTERM.XFR' );
  17.       (*$I-*)
  18.    RESET( Xfer_List_File );
  19.       (*$I+*)
  20.                                    (* If not there, no files to check *)
  21.    IF IoResult = 0 THEN            (* If there, check the file        *)
  22.       BEGIN
  23.  
  24.          SDone     := FALSE;
  25.          File_Name := UpperCase( TRIM( File_Name ) );
  26.  
  27.          REPEAT
  28.  
  29.             READLN( Xfer_List_File , Xfer_Line );
  30.  
  31.             IF TRIM( Xfer_Line ) = File_Name THEN
  32.                BEGIN
  33.                   SDone          := TRUE;
  34.                   Scan_Xfer_List := TRUE;
  35.                END;
  36.  
  37.          UNTIL ( EOF( Xfer_List_File ) OR SDone );
  38.  
  39.       END;
  40.  
  41.       (*$I-*)
  42.    CLOSE( Xfer_List_File )
  43.       (*$I+*)
  44.  
  45. END   (* Scan_Xfer_List *);
  46.